home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / COMPILER / VP10B003 / VPC.ZIP / EXAMPLES / BP7 / TVDEMO / HELPFILE.DIF < prev    next >
Text File  |  1995-06-22  |  2KB  |  65 lines
  1. Comparing files BP7\HELPFILE.PAS and VP\HELPFILE.PAS
  2. ***** BP7\HELPFILE.PAS
  3.    14:  uses Objects, Drivers, Views;
  4. ***** VP\HELPFILE.PAS
  5.    14:  uses Objects, Drivers, Views, Use32;
  6.  
  7. ***** BP7\HELPFILE.PAS
  8.   438:  function Scan(var P; Offset, Size: Integer; C: Char): Integer; assembler;
  9.   439:  asm
  10. ***** VP\HELPFILE.PAS
  11.   438:  function Scan(var P; Offset, Size: Integer; C: Char): Integer; assembler;
  12.   439:  {$IFNDEF USE32}
  13.   440:  asm
  14.  
  15. ***** BP7\HELPFILE.PAS
  16.   453:          XCHG    AX,CX
  17.   454:  end;
  18. ***** VP\HELPFILE.PAS
  19.   454:          XCHG    AX,CX
  20.   455:  {$ELSE} {$USES esi,edi} {$FRAME-}
  21.   456:  asm
  22.   457:                  cld
  23.   458:                  mov     edi,P
  24.   459:                  add     edi,&Offset
  25.   460:                  mov     edx,Size
  26.   461:                  sub     edx,&Offset
  27.   462:                  test    dh,dh
  28.   463:                  jz      @@1
  29.   464:                  mov     edx,256
  30.   465:                @@1:
  31.   466:                  mov     ecx,edx
  32.   467:                  mov     al,C
  33.   468:                  repne   scasb
  34.   469:                  sub     ecx,edx
  35.   470:                  neg     ecx
  36.   471:                  xchg    eax,ecx
  37.   472:  {$ENDIF}
  38.   473:  end;
  39.  
  40. ***** BP7\HELPFILE.PAS
  41.   457:    assembler;
  42.   458:  asm
  43. ***** VP\HELPFILE.PAS
  44.   476:    assembler;
  45.   477:  {$IFNDEF USE32}
  46.   478:  asm
  47.  
  48. ***** BP7\HELPFILE.PAS
  49.   468:          POP     DS
  50.   469:  end;
  51. ***** VP\HELPFILE.PAS
  52.   488:          POP     DS
  53.   489:  {$ELSE} {$USES esi,edi} {$FRAME-}
  54.   490:  asm
  55.   491:                  cld
  56.   492:                  mov     esi,Text
  57.   493:                  add     esi,&Offset
  58.   494:                  mov     edi,Line
  59.   495:                  mov     eax,Length
  60.   496:                  stosb
  61.   497:                  xchg    eax,ecx
  62.   498:                  rep     movsb
  63.   499:  {$ENDIF}
  64.   500:  end;
  65.